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SUMMARY 

Operating  instructions  of  a  computer  controlled  impedance 
measurement  system  based  on  Hewlett  Packard  instrumentation  are  given. 
Hardware  details,  program  listings,  flowcharts  and  a  practical  application  are 
included. 
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1.  INTRODUCTION 


In  many  areas  of  electronic  design  and  in  the  evaluation  of  the  performance 
of  electronic  equipment,  the  impedance  of  a  component  or  network,  at  a  single 
frequency,  or  over  a  range  of  frequencies  is  required  to  be  known. 

When  this  entails  a  large  number  of  measurements,  or  the  testing  of  many 
components,  the  data  acquistion  becomes  tedious,  time  consuming  and  prone  to 
error.  An  automated  impedance  measuring  and  recording  system  becomes  an 
asset. 

The  need  for  the  development  of  such  a  system  at  ARL  arose  w  hen  impedance 
measurements  and  analysis  of  six  commercial  ultrasonic  transducers  over  a  fre¬ 
quency  range  of  O.lMHz  to  13MHz  were  required. 

This  paper  descibes  the  hardware,  software  and  operating  procedures  of  an 
impedance  measurement  system  that  was  subsequently  developed. 

•2.  INSTRIMENT.ATION 

A  l)l<)ck  diagram  of  the  impedance  measurement  system  is  shown  in  Figure  1. 
It  consists  of  the  following; 

i.  Hewlett  Packard  HP86  computer,  fitted  with  a  Hewlett  Packard  interface 

bus  (HPIB)  adaptor. 

ii.  A  Hewlett  Packard  HP82flI3.\  monitor. 

iii.  Two  Hewlett  Packard  HPflI30A  flexible  disc  drives. 

iv.  Hewlett  Packard  82tlO')B  printer. 

V.  Hewlett  Packard  7 470.\  plotter,  and 

vi.  .A  Hewlett  Packard  4192.\  low  frequencylLF  )  impedance  analyser. 

2.1  C'ompufer 

The  HP8(>  communicates  with  the  impedance  analyser  via  the 
HPIB.  This  enables  remote  control  of  all  setup  parameters,  and  acquistion  of  mea¬ 
sured  data.  After  processing,  the  data  can  be  displayed  graphically  on  the  monitor 
or  the  plotter.  The  measured  data  can  stored  and  retrieved  from  flexible  disc. 

2.2  .Analyser 

The  HP4192A  LF  impedance  analyser  is  a  fully  automatic,  high 
performance  instrument  which  can  be  used  manually,  or  ,  as  in  this  application, 
coupled  to  a  computer  via  a  HPIB  interface.  The  HPIB  interface  provides  complete 
remote  control  of  all  front  panel  functions  of  the  analyser,  and  all  measurements 


are  taken  under  software  control.  Once  all  the  parameters  are  set  up  via  the 
computer  keyboard,  no  further  interaction  is  required. 

The  impedance  analyser  measures  parameters  in  pairs,  and  in  the  work  re¬ 
ported  here,  the  parameters  are  software  selected.  A  detailed  description  of  the 
parameters  is  given  in  Section  4.1.  A  summary  of  the  capabilities  of  the  analyser 
and  brief  specifications  are  listed  in  Table  1. 

2.3  Test  fixtures 

Three  types  of  test  fixtures  are  provided  with  the  analyser.  The 
different  test  fixtures  .described  below,  facilitate  the  connection  of  a  range  of  com¬ 
ponents. 

The  HPl(i047A.  is  a  direct  coupled  fixture  for  measurement  of  axial  or  radial 
lead  components.  Three  interchangeable  contact  inserts  can  be  plugged  into  the 
fixture.  The  contacts  are  for  axial  lead  components,  general  radial  lead  components 
and  radial  sliort  lead  components.  Components  connected  to  this  fixture  can  have 
up  to  plus  or  minus  35  \olts  D.C‘.  bias  applied. 

The  HfM(i048.\  fixture  has  four  test  leads  giving  four  terminal  pairs  with 
BNC  connectors  for  use  with  user  fabricated  test  fixtures.  The  cable  is  one  metre 
long  and  the  analyser  automatically  compensates  for  transmission  line  phase  shift 
effects  between  the  measuring  circuitry  and  the  component  being  measured.  Direct 
current  bias  up  to  plus  or  minus  200  Volts  can  be  applied  to  the  component  under 
test. 

The  HP16095.A.  probe  fixture  enables  measurement  of  a  two  port  component 
or  network  in  a  circuit,  with  both  ports  floating  or  one  port  grounded. 

2.4  Hewlett  Packard  Interface  Bus 

The  hardware  components  of  the  impedance  measuring  system 
are  connected  together  by  a  Hewlett  Packard  Interface  Bus  (HPIB)  which  is  com¬ 
patible  with  the  IEEE488  general  purpose  interface  bus  standard.  The  HPIB 
enables  keyboard  control  of  the  printer,  plotter,  and  impedance  analyser. 

3.  SOFTWARE 

The  software  is  written  in  HP  Basic  as  described  in  reference  1.  The  main 
program  has  calls  to  fourteen  subroutines  to  measure,  process,  store,  retrieve, 
display  or  plot  data,  and  to  modify  plot  size  and  scales.  A  block  flowchart,  shown 


in  Figure  2,  details  the  processes  performed  by  the  software.  A  complete  flowchart 
of  the  main  program  and  listing  is  contained  in  Appendix  I. 

The  data  are  stored  in  the  same  format  as  the  analyser  output  data.  This 
ensures  that  no  information  is  lost,  and  that  if  the  direction  or  emphasis  of  an 
experiment  changes,  or  some  unexpe<-ted  or  unusual  effect  is  observed,  then  rel¬ 
evant  information  has  not  been  discarded  by  data  reduction.  The  small  price 
paid  for  this  added  flexibility  is  a  slight  increase  in  processing  time  required  when 
converting  the  data  into  a  suitable  format  for  plotting. 

The  software  has  been  written  to  be  flexible  and  to  allow  easy  modification. 
The  subroutines  are  virtually  self  contained  and  thus  can  be  utilixed  alone  or 
in  t)ther  programs  for  plotting,  storing,  or  retrieving  data,  especially  with  the 
hardware  used  here.  The  graphics  routines  have  been  written  in  user  units,  which 
enables  plots  to  be  scaled  by  simply  changing  the  size  of  the  numbers  in  the  limit 
statement  and  the  values  of  eight  setup  parameters.  When  these  numbers  are 
changed  the  size  of  the  plot,  and  the  spacing  of  the  labels  is  automatically  scaled 
so  that  plots  can  be  produced  to  fill  a  standard  A4  size  page,  or  of  correct  size  for 
.\RL  publications  .or  any  other  size.  Table  2  lists  the  constants  to  be  changed  for 
various  common  applications,  and  their  locations  in  the  program. 

4.  OPERATING  INSTRUCTIONS 

After  loading  and  running  the  program  “IMPSTORE  ”,  the  user  is  guided 
by  program  prompts  to  select  the  appropriate  options.  Specific  instructions  for 
measuring,  plotting,  storing  and  retrieving  data  are  given  below. 

4.1  Measuring  data 

In  this  program  mode,  the  operator  must  choose  amongst  the 
available  options  for  each  of  the  following 
a.  Electrical  parameters. 

The  parameters  being  complex  quantities  are  measured  by  the  analyser  in 
pairs,  allowing  some  option  for  the  secondary  parameter.  The  required  parameters 
can  be  selected  from  the  list  below. 


PRIM.4RY 

PARAMETER 

SECONDARY 

PARAMETER 

Impedance  (Z) 

Phase  Degrees  (D) 
Phase  Radians  (R) 

.A.dmittance  (Y| 

Phase  Degrees  (D) 
Phase  Radians  (R) 

Resistance  (R) 

Reactance  |X) 

Conductance  (G) 

Susceptance  (B) 

Capacitance  (C) 

Quality  (Q) 
Dissipation  (D) 
Resistance  (R) 
Conductance  (G) 

Inductance  (L) 

Quality  (Q) 
Dissipation  HD) 
Resistance  (K) 
Conductance  (G) 

Gain  (B-A) 

Delay  (G1 

Degrees  (D) 
Radians  (R) 

Ref  Amp  (A) 

dBV  (V) 
dBm  (M) 

Ref  Amp  (B) 

dBV  (V) 
dBm  (M) 

b.  Resolution  of  data  measurement. 

Options  are  high  speed  (S),  normal  (N),  and  accuracy  (A).  Further  details  of 
the  measurement  accuracy  and  speed  are  given  in  reference  2. 

c.  Frequency  scale. 

Options  are  linear  or  logarithmic. 

d.  Upper  and  lower  frequency. 

e.  Number  of  measurement  steps  for  frequency  sweep. 

For  logarithmic  scale  the  upper  and  lower  limits  are  rounded  to  the  correct 
decade,  and  twenty-one  measurements  are  made  per  decade. 

4.2  Displaying  data 

Measured  or  stored  data  can  be  displayed  on  the  monitor  or 
plotted  by  entering  the  following  data:- 

a.  Minimum  and  maximum  values  of  the  primary  parameter  Y  axis.  Default 
values  are  the  minimum  and  maximum  measured  values. 
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b.  Ten  or  six  divisions  for  the  secondary  parameter  Y  axis  when  the  secondary 
parameter  is  phase  and  the  units  are  degrees.  A  six  division  axis  is  more 
convenient  for  displaying  360  degrees  or  commonly  used  parts  of  360  degrees. 

c.  Minimum  and  maximum  values  of  the  secondary  parameter  Y  axis  for  either 
ten  or  six  divisions.  Default  values  are  the  minimum  and  maximum  measured 
values  for  ten  divisions,  and  minus  90  degrees  to  90  degrees  for  six  divisions. 

d.  Monitor  or  hardcopy  display. 

4.3  Storing 

For  storing  raw  measured  data  on  flexible  disc  enter  a  title  which 
becomes  the  name  of  the  datable  created.  An  optional  identifier  can  also  be  stored 
on  the  data  file. 

4.4  Retrieving 

To  read  stored  data  it  is  only  necessary  to  enter  the  name  of  the 
datafile  in  which  the  data  are  stored.  The  optional  identifier  stored  with  the  data 
is  displayed  on  the  monitor. 

5.  EXAMPLE 

The  system  has  been  used  to  measure  the  impedance  of  a  commercial  ultra¬ 
sonic  transducer  (Krautkramer  K5K).  An  example  of  the  graphical  output  of  the 
program  is  shown  in  Figure  3.  A  detailed  listing  of  the  setup  procedure,  the  opera¬ 
tor  responses  and  scale  modification  procedure  used  to  obtain  this  output  is  given 
in  Appendix  II. 
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APPENDIX  1-Software  flowchart  and  listing 


hardcopy? 


lUPSTORE 


10  REM  ♦**♦•♦♦♦♦**♦* 

20  PAGESIZE  16 
30  PRIiTER  IS  300 
40  CLEAR 

SO  DIM  AKlSl)  [50] 

60  DIM  B$[50] 

70  DIM  AA(151).BB(151).FR(1S1) 

80  OPTIOl  BASE  0 

90  DISP  *  **«  IMPEDANCE  MEASURE  STORE  AND  PLOT  PROGRAM  •««* 

100  DISP  '  Do  you  wish  to  measure  (M)  or  display  stored  data?  (D)' 
no  INPUT  MD$ 

120  IF  MD$#*M'  AND  MD|i*D*  THEN  BEEP  0  GOTO  100 

130  IF  MD$=*M*  THEN  GOSUB  MEASURE  ELSE  PLO|=’Y*  0  GOTO  720 

140  REM  ******  MEASURE  sets  up  parameters  to  be  measured  and  measures  ****** 
150  DISP  0  DISP  0  DISP  •  Do  you  wish  to  display  plot?  (T/N)’ 

160  INPUT  REPlI 

170  IF  REPlIi'Y'  AND  REPlIi'N*  THEN  BEEP  0  GOTO  150 
180  IF  REP1$=*Y'  THEN  GOSUB  PROCESS  ELSE  GOTO  500 

190  REM  ******  process  converts  raw  analyser  data  to  numbers  ****** 

200  DG=10 

210  REM  ******  Sets  right  hand  Y  axis  to  ten  divisions  ****** 

220  COSUB  YLSCALEMOD  •  ******  LEFT  AXIS  SCALE  MOD  ****** 

230  REM  ******  YLSCALEMOD  modifies  left  hand  Y  scale  range  ****** 

240  IF  LAB2|=*PHASE  DEG*  THEN  GOSUB  DEGMOD  !  ♦♦♦  RIGHT  AXIS  10  TO  6  DIVS  *** 

250  REM  ««  DEGMOD  is  6  divisions  option  for  Y  scale  if  it  is  phase  in  degrees  * 
260  COSUB  YRSCALEMOD  !  ******  RIGHT  AXIS  SCALE  MOD  ****** 

270  REM  ******  YRSCALEMOD  modifies  right  hand  Y  scale  range  ****** 

280  DISP  •  Do  you  wish  to  display  on  VDU  (V)  or  get  a  hard  copy  (H)?  (V/H) * 
290  INPUT  REP5$ 

300  IF  REP5|#*V*  AND  REP5|#*H*  THEN  BEEP  0  GOTO  280 
310  IF  REP5|='H*  THEN  440 
320  GOSUB  VDU 

330  REM  ******  VDU  sets  up  graphics  limits  for  display  on  screen  ****** 

340  IF  FL$=*LIN‘  THEN  GOSUB  LINPLOT 

350  REM  ******  LINPLOT  plots  data  when  frequency  scale  is  linear  ****** 

360  IF  FL|='LOG'  THEN  GOSUB  LOCPLOT 

370  REM  ******  LOGPLOT  plots  data  when  frequency  scale  is  logarithmic  ******* 
380  PAUSE 
390  ALPHA 

400  DISP  •  Do  you  want  a  hardcopy  ?  (Y/N)* 

410  INPUT  RES$ 

420  IF  RES|#'Y‘  AND  RES|#*N*  THEN  BEEP  0  GOTO  400 
430  IF  RES$=*N'  THEN  500 
440  GOSUB  HARDCOPY 

450  REM  ******  HARDCOPY  sets  up  graphics  limits  for  plotting  data  ****** 

460  IF  FL$=*LIN'  THEN  GOSUB  LINPLOT 

470  REM  ******  LINPLOT  plots  data  when  frequency  scale  is  linear  ****** 

480  IF  FL$='L0G'  THEN  GOSUB  LOGPLOT 

490  REM  ******  LOCPLOT  plots  data  when  frequency  scale  is  logarithmic  ****** 

500  DISP  •  Do  you  wish  to  store  data?  (Y/N)* 

510  INPUT  REP2$ 

520  IF  REP2$#*Y*  AND  REP2$#*N*  THEN  BEEP  0  GOTO  500 
530  IF  REP2|=*Y*  THEN  540  ELSE  GOTO  630 
540  IF  REP1|=*Y*  THEN  570 
550  GOSUB  PROCESS 

560  REM  ******  PROCESS  converts  raw  analyser  data  to  numbers  ****** 

570  GOSUB  NEWFILE 

580  REM  ******  NEWFILE  creates  datafile  on  disc  ****** 

590  GOSUB  WRITEG 

600  REM  ******  WRITEG  writes  data  to  file  created  by  NEWFILE  ****** 

610  COSUB  CLOSE 

620  REM  ******  CLOSE  closes  the  data  file  written  by  WRITEG  ****** 

630  DISP  •  Do  you  wish  to  test  another  device?  (Y/N)* 

640  INPUT  REP4$ 

650  IF  REP4|#*Y*  AND  BEP4|#*N*  THEN  BEEP  0  GOTO  630 
660  IF  REP4$=*Y*  THEN  COSUB  AGAIN  ELSE  690 

670  REM  ******  AGAIN  is  a  dummy  routine  ****** 

680  GOTO  90 

690  DISP  •  Do  you  wish  to  plot  any  of  the  stored  data?  (Y/N)* 


700  IIPUT  PLOl 

710  IF  PLOli'Y*  AID  PLOlfl*  THEM  BEEP  0  GOTO  690 
720  IF  PLOl=*Y'  THEM  GOSUB  READDATA  ELSE  1080 

730  REM  *«««««  READDATA  reads  data  previously  on  disc  stored  *•«•** 

740  GOSUB  PROCESS 

760  REM  PROCESS  converts  raw  analyser  data  to  nuabers  ♦♦♦***•♦♦♦♦• 

760  DG=10 

770  REM  *««*««  DG=10  sets  right  hand  Y  axis  to  tea  divisions  ****** 

780  COSUB  YLSCALEMOD  !  LEFT  AXIS  SCALE  MOD  ♦♦♦*•• 

790  REM  «*«*****«««*«  YLSCALEMOD  aodifies  left  hand  Y  scale  range  ************ 
800  IF  LAB2t=*PHASE  DEG*  THEM  GOSUB  DEGMOD  !  •*«  RIGHT  AXIS  10  TO  6  DIVS 

810  REM  **  DEGMOD  is  6  divisions  option  for  Y  scale  if  it  is  phase  in  degrees  * 
820  GOSUB  YRSCALEMOD  !  *•**•*  RIGHT  AXIS  SCALE  MOD  ****** 

830  REM  «***•*  YRSCALEMOD  aodifies  right  hand  Y  scale  range  ****** 

840  DISP  •  Do  you  wish  to  display  on  VDU  (V)  or  get  a  hard  copy  (H)?  (V/H)* 

850  IIPUT  REP6$ 

860  IF  REPeli'V*  AMD  REP6$#'H‘  THEM  BEEP  0  GOTO  840 
870  IF  REP6|=*H'  THEM  1010 
880  COSUB  VDU 

890  REM  ******  VDU  sets  up  graphics  limits  for  display  on  screen  ****** 

900  IF  FL$=*LIM*  THEM  GOSUB  LIIPLOT 

910  REM  ******  LIIPLOT  plots  data  when  frequency  scale  is  linear  ******* 

920  IF  FL|=*L0G*  THEI  GOSUB  LOGPLOT 

930  REM  ******  LOGPLOT  plots  data  when  frequency  scale  is  logarithmic  ****** 
940  PAUSE 

950  REM  ■  ******  Pause  to  enable  operator  to  view  the  plot  on  screen  ****** 

960  ALPHA 

970  DISP  •  Do  you  want  a  hardcopy  ?  (Y/I)* 

980  IIPUT  RESlI 

990  IF  RES1|#*Y‘  AID  RES1|#*I»  THEI  BEEP  0  GOTO  970 
1000  IF  RES1|=*I*  THEI  690 
1010  GOSUB  HARDCOPY 

1020  REM  ******  HARDCOPY  sets  up  graphics  limits  for  plotting  data  ****** 

1030  IF  FH='LII*  THEI  GOSUB  LIIPLOT 

1040  REM  ******  LIIPLOT  plots  data  when  frequency  scale  is  linear  ****** 

1050  IF  FL$='L0G'  THEI  GOSUB  LOGPLOT 

1060  REM  ******  LOGPLOT  plots  data  when  frequency  scale  is  logarithmic  ******** 
1070  GOTO  690 

1080  DISP  *  EID  OF  PROGRAM  to  measure  or  plot  press  RUM  key* 

1090  EID 
1100  ! 

1110  ! 

1120  MEASURE:  !  ******************MEASURE  SUBROUTIME*»**ww******************** 

1130  REM  DISP'analyzer  addr=317  ,  plotter  addr=305.  What  do  you  wish  to  plot  ?• 
1140  1=317 
1150  CLEAR  I 
1160  REMOTE  I 

1170  REM  OUTPUT  I  ;*S1*  ******  Remove  for  analyser  self  test  ****** 

1180  REM  ******  Choose  parameter  to  be  measured  ***** 

1190  DISP  'To  measure  Type* 

1200  DISP  'IMPEDAMCE  Z* 

1210  DISP  'ADMITTAICE  Y* 

1220  DISP  'RESISTAICE  R* 

1230  DISP  'COIDUCTAICE  C* 

1240  DISP  'IIDUCTAICE  L* 

1250  DISP  'CAPACITAMCE  C* 

1260  DISP  *CAII  B-A* 

1270  DISP  *REF  AMP  A* 

1280  DISP  'IIPUT  AMP  B* 

1290  IIPUT  AISlI 

1300  Z:  IF  AIS1$=*Z*  THEI  OUTPUT  I  ;*A1C2*  0  LABH=* IMPEDAICE  Z*  0  GOTO  DEGl 
1310  REM  *****  Sets  analyser  to  measure  Z/Y  series  equivalent  circuit  ***** 
1320  Y:  IF  AIS1$=*Y*  THEM  OUTPUT  I  ;*A1C3*  0  LAB1$=*ADMITTAICE  Y*  0  GOTO  DEGl 
1330  REM  ****  Sets  the  analyser  to  measure  Z/Y  parallel  equivalent  circuit  *♦♦♦ 
1340  GOTO  R 

1350  DEGl:  DISP  'For  angles  in  Type* 

1360  REM  *****  Sets  phase  in  degrees  or  radians  ***** 

1370  DISP  '  DEGREES  D' 

1380  DISP  '  RADIAIS  R* 


1390  IIPUT  AISI 

1400  01  ERROR  GOTO  DEGl 

1410  REM  ««««««*  Trap  errors  so  prograa  does  not  abort 

1420  IF  AIS([1,1]=*D*  THEI  OUTPUT  I  :*B1*  0  LAB2t=*PHASE  DEG*  0  GOTO  RESO 
1430  REU  ««•*  Sets  the  analyser  to  aeasure  phase  In  DEGREES  •«** 

1440  IF  A1S$[1.1]=*R*  THEI  OUTPUT  I  ; *82*  0  LAB2$=*PHASE  RAD*  0  GOTO  RESO 
1450  REH  «**«  Sets  the  analyser  to  aeasure  phase  in  RADIAIS  •«*« 

1460  GOTO  DEGl 

1470  R:  IF  AMS1|=*R*  THE*  DISP  * (PLUS  REACTAICE  X)*  0  OUTPUT  I  ;*A2B1C2*  0  LA 
B1$=*RESISTANCE  R*  0  LAB2$=* REACTAICE  X*  0  GOTO  RESO 

1480  REH  *«««««  Sets  the  analyser  to  aeasure  R/G  ,  phase 

in  DEGREES  ,  series  equivalent  circuit  «***«* 

1490  G;  IF  ANSlt='G*  THEI  DISP  *(  «  SUSCEPTAICE  B)*  0  OUTPUT  I  ;*A2B3C3*  0  LABlt 

=*COIDUCTAICE  G*  0  LAB2$=* SUSCEPTAICE  B*  0  GOTO  RESO 

1500  REH  ««««  Seta  the  analyser  to  aeasure  R/C  , 

R/G  ,  parallel  equivalent  circuit  ****** 


1510  L:  IF  A*S1|=*L*  THE*  OUTPUT  I 
1520  REH 

1530  C:  IF  AIS1|=*C*  THEI  OUTPUT  I 
1540  REH 
1550  GOTO  BA 

DISP 


:*A3*  0  LAB1|=*IIDUCTAICE  L*  0  GOTO  DEG2 
****  Sets  the  analyser  to  aeasure  L  ****** 
;*A4*  0  LAB1|=*CAPACITAICE  C*  0  GOTO  DEG2 
****  Sets  the  analyser  to  aeasure  C  ****** 


1560  DEG2 
1570  REH 
1580  DISP 
1590  DISP 
1600  DISP 
1610  DISP 
1620  DISP 


For 


Type* 

******  Select  right  hand  T  axis  paraaeter 

Q* 

D* 

R* 

G* 


•QUALITY 
•DISSIPATIO* 

•RESISTAICE 
•COIDUCTAHCE 
0  INPUT  ANSt 
1630  ON  ERROR  GOTO  DEG2 

1640  REH  *******  Trap  errors  so  prograa  does  not  abort  ♦♦♦♦•♦ 

1650  IF  ANS|=*Q*  THE*  OUTPUT  I  ; *8102*  0  LAB2$=*QUALITY  Q*  0  GOTO  RESO 
1660  REH  *****  Sets  analyser  to  aeasure  Q  ,  series  equivalent  circuit  ***** 
1670  IF  ANS$=*D*  THE*  OUTPUT  I  ; *B2C2*  0  LAB2$='DISSIPATI0I  D*  0  GOTO  RESO 
1680  REH  ***««  Sets  analyser  to  aeasure  D  ,  series  equivalent  circuit  ***** 
1690  IF  A*S$=*R*  THE*  OUTPUT  I  ;*B3C2*  0  LAB2|=*RESISTA*CE  R*  0  GOTO  RESO 
1700  REH  *****  Sets  analyser  to  aeasure  R/G  .series  equivalent  circuit  **** 
1710  IF  ARS$='G*  THE*  OUTPUT  I  ;*B3C3*  0  LAB2J=*C0*DUCTA*CE  G*  0  GOTO  RESO 

1720  REU  *****  Sets  analyser  to  measure  R/G  .parallel  equivalent  circuit  **** 

1730  BEEP  100,100  0  GOTO  DEG2 

1740  BA:  IF  A*S1$=*B-A*  THE*  OUTPUT  I  ; 'AS'  0  LAB1$=*GAI*  dB*  ELSE  A 
1750  REH 
1760  REH 

1770  DEG3;  DISP  •  For 

1780  DISP  'GROUP  DELAY 

1790B  DISP  "DEGREES 
1800  DISP  'RADIAHS 
1810  DISP  0  I*PUT  A*S$ 

1820  0*  ERROR  GOTO  BA 
1830  REM 

1840  IF  A*S$[1,1]='G 
1850  REM 

1860  IF  A*S$[1,1]='D 
1870  REM 


******  Sets  analyser  to  measure  B-A  (dB)  ****** 
******  Select  right  hand  Y  axis  parameter  ****** 
Type' 

G' 

D' 

R' 


*******  Trap  errors  so  program  does  not  abort  *♦♦*♦♦ 
THE*  OUTPUT  I  :'B1'  0  LAB2$='GR0UP  DELAY  S'  0  GOTO  RESO 

******  Sets  analyser  to  measure  GROUP  DELAY****** 
THE*  OUTPUT  I  ,'B2'  0  LAB2$='PHASE  DEG'  0  GOTO  RESO 

******  Sets  analyser  to  measure  phase  DEGREES  ****** 
1880  IF  A*S|[1,1]='R'  THE*  OUTPUT  I  ;'B3'  0  LAB2$='PHASE  RAD'  0  GOTO  RESO 
1890  REU  ******  Sets  analyser  to  measure  phase  RADIANS  ****** 

1900  GOTO  DEG3 

1910  A:  IF  A*S1|='A'  THE*  OUTPUT  I  ;'A6'  0  LAB1|='REF  I/P'  0  GOTO  DEG4 

1920  REH  ******  Sets  analyser  to  measure  I*PUT  A  dBm/dBV  ****** 

1930  B:  IF  A*S1|='B'  THE*  OUTPUT  I  ;'A7'  0  LABH='TEST  I/P'  0  GOTO  DEG4 


For 


1940  REH 

1950  BEEP  100.100 
1960  DEG4:  DISP 
1970  DISP  'dBv 
1980  DISP  'dBm 
1990  DISP  0  I*PUT  A*S| 

2000  0*  ERROR  GOTO  DEG4 
2010  REH 

2020  IF  A*S|[1,1]='H'  THE*  OUTPUT  I 
RESO 


******  Sets  analyser  to  measure  INPUT  B  dBm/dBV  ****** 
GOTO  1190 

Type'  ’  *****  Cain  in  dBv  or  dBm  ***** 

V 

H' 


*******  Trap  errors  so  program  does  not  abort  ****** 
*1'  0  LABlt=LABl|A'  dBm'  0  LAB2$="  0  GOTO 


2030  REM  *«««««  Set!  snalyaer  to  aeasure  GAII  in  dBa 

2040  IF  AIS|[1,1]='V*  THEM  OUTPUT  I  ; 'K*  0  LAB19=LAB1$A*  dBv*  0  LAB2$='*  0  GOTO 

RESO 

2050  REM  «**«**  Seta  analyaer  to  Beaaure  GAII  in  dBV  **••*« 

2060  GOTO  DEG4 

2070  RESO:  DISP  'For  reaolutlon  Typo* 

2060  REM  ***««  Seta  up  reaolutlon  ***** 

2090  DISP  "HIGH  SPEED  S* 

2100  DISP  'ACCURACY  A* 

2110  DISP  'lORMAL  I* 


«*««««  Seta  nnalyaer  to  HIGH  SPEED  01 

««««**  Seta  analyaer  to  AVERAGE  01  ••*♦♦* 
typo* 

««««*  Specif  lea  log  or  lin  freq  acale  ***** 

LII* 

LOG* 


2070  RESO:  DISP  *For  reaolutlon  Typo* 

2060  REM  *****  Seta  up  reaolutlon  ***** 

2090  DISP  *HIGH  SPEED  S* 

2100  DISP  'ACCURACY  A* 

2110  DISP  'lORMAL  I* 

2120  IIPUT  AISI 

2130  01  ERROR  GOTO  RESO 

2140  REM  *******  Trap  errora  ao  prograa  doea  not  abort  ****** 

2150  IF  AIS$[1.1]=*S*  THEI  2190 

2160  IF  AIS|[1.1]=*A*  THEI  2210 

2170  IF  AIS$[1.1]=*I*  THEI  2230 

2160  IF  AIS|[1.1]=**  THEI  2230 

2190  OUTPUT  I  ;*H1*  0  GOTO  HORI 

2200  REM  ******  Seta  analyaer  to  HIGH  SPEED  01  ****** 

2210  OUTPUT  I  ;*V1*  0  GOTO  HORI 

2220  REM  ******  Seta  analyaer  to  AVERAGE  01  ****** 

2230  HORI:  DISP  'For  freq  acale  type* 

2240  REM  *****  Specif  lea  log  or  lin  freq  acale  ***** 

2250  DISP  *  LIIEAR  LII* 

2260  DISP  *  LOG  LOG* 

2270  IIPUT  AISI 

2260  01  ERROR  GOTO  HORI 

2290  REM  *******  Trap  errora  ao  prograa  doea  not  abort  ****** 

2300  IF  AISI [3.3]=*!*  THEI  OUTPUT  I  ; *G0EI*  0  FL$=*LII*  0  GOTO  LIIFREM 
2310  REM  ******  Seta  analyaer  to  LOG  5VEEP  OFF  ***** 

2320  IF  AMS$[3.3]=*G*  THEM  FL|=*L0G*  0  GOTO  LOGFREH 
2330  GOTO  HORI 

2340  LIIFREQ:  DISP  0  DISP  *ihat  la  the  lower  frequency  in  KHz'; 

2350  REM  *****Set8  up  upper  and  lower  freq  ***** 

2360  IIPUT  TF 

2370  IF  TF<.005  THEM  DISP  'lot  less  than  .005*  0  BEEP  100,100  0  GOTO  LIIFREQ 
2380  OUTPUT  I  ; *TF* ; TF; 'EM* 

2390  REM  ******  Sets  analyser  START  FREQUEICY  ****** 

2400  OUTPUT  I  ;*FB*;TF;*EM* 

2410  REM  ******  Sets  analyser  SPOT  FREQUEICY  ****** 

2420  DISP  'What  is  the  higher  frequency  in  kHz'; 

2430  IMPUT  PF 

2440  IF  PF>13000  THEM  DISP  'Mot  aore  than  13000*  0  BEEP  100,100  0  GOTO  LIIFREQ 
2450  IF  PF<TF  THEM  DISP  'That’s  MOT  higher  !!!*  0  BEEP  100,100  0  GOTO  LIIFREQ 
2460  IF  PF=TF  THEM  DISP  'SAME  frequency  !!l*  0  BEEP  100,100  0  GOTO  LIIFREQ 
2470  OUTPUT  I  ; 'PF* ;PF; 'EM* 

2480  REM  Sets  analyser  STOP  FREQUEMCY  *••*♦♦ 

2490  POUTS;  DISP  'How  many  steps'; 

2500  IMPUT  ST 

2510  IF  ST>150  THEM  DISP  'Too  aany*  0  BEEP  100,100  0  GOTO  POUTS 

2520  SF=ABS  (PF-Tf)/ST 

2530  OUTPUT  I  USIMC  2550  ;  SF 

2540  REM  ♦♦♦•♦*  Sets  analyser  STEP  FREQUEMCY  ♦*♦♦♦* 

2550  IMAGE  *SF* , ZZZZ , DDDD, 'EM* ,K 

2560  OUTPUT  I  ;*T3F1W1W2*  0  GOTO  SWEEP 

2570  REM  •••*•*  Sets  analyser  TRIGGER  HOLD/MAMUAL  , DISPLAY  DATA 

A/B/C  ,  AUTO  SWEEP  ,  STEP  FREQUEMCY  UP  ****•♦ 

2580  LOGFREQ:  DISP  'What  is  the  lower  frequency  in  KHz* 

2590  IMPUT  START 

2600  IF  START<.01  THEM  START=.01  0  DISP  'Lowest  frequency  is  .01  KHz* 

2610  DISP  *What  is  the  higher  frequency  in  KHz* 

2620  IMPUT  FIMISH 

2630  IF  FIMISHM3000  THEM  FIMISH=13000  0  DISP  'Highest  frequency  is  13000* 

2640  IF  START=FIMISH  THEM  BEEP  100,100  0  DISP  'SAME  frequency*  0  GOTO  LOGFREQ 
2650  IF  START>FIBISH  THEM  BEEP  100,100  0  DISP  'Higher  frequency  was  lower  than  1 
ow*  0  GOTO  LOGFREQ 

2660  STAR=IMT  (LGT  (START))  !  •**  Rounds  to  largest  decade  <or=lower  freq  *** 

2670  FIMI=CEIL  (LGT  (FIMISH))  •  ***  Rounds  to  saallest  decade  >or=  upper  freq  * 
2680  DECS=FIMI-STAR  !  ♦•*  Calculates  the  nuaber  of  decades  in  freq  range  *** 


♦**•♦*  Sets  analyser  STEP  FREQUEMCY  ♦*♦♦♦* 


2690  TI=10tSTAR  !  ***  Calculates  the  rounded  lower  freq  •*« 

2700  PF=10tFIII  !  «*«  Calculates  the  rounded  upper  freq 

2710  OUTPUT  I  ;*TF*;TF; •£!• 

2720  REU  **•«•*  Sets  analyser  START  FREQUEICY  *«*««* 

2730  OUTPUT  I  ; 'FR* ; TF; 'El* 

2740  REM  Sets  analyser  SPOT  FREIUEICY  ♦♦•••* 

2750  OUTPUT  I  ; 'PF* ;PF; ‘El* 

2760  REM  •••*•*  Sets  analyser  STOP  FREQUEICY 

2770  OUTPUT  I  ;'G1EM* 

2760  REM  *«««**  Sets  analyser  LOG  SWEEP  01  ««*«** 

2790  OUTPUT  I  ;*T3F1W1W2* 

2800  REM  «**«**  Sets  analyser  TRIGGER  HOLD/MAIUAL  .DISPLAY  DATA 

A/B/C  .  AUTO  SWEEP  .  STEP  FREQUEICY  UP 
2810  SWEEP:  DISP  ‘SWEEPIIG  . • 

2820  REM  ««*«*«  Sweep  ,  trigger  analyser  ,  Beasure  data  ***«*« 

2830  FOR  1=0  TO  150 
2840  OUTPUT  I  ;'EX* 

2850  REM  ♦**»*♦  Sets  analyser  EXECUTE  ****** 

2860  A=SPOLL  (I) 

2870  REM  ******  Conducts  a  serial  poll  of  the  analyser  for  handshaking  ****** 
2880  IF  BIT  (A.4)il  THEM  2920 
2890  ENTER  I  ;  B$ 

2900  At(N)=Bt 
2910  NEXT  I 
2920  ARM=N-1 
2930  OFF  ERROR 

2940  REM  ******  Error  trap  off  ******* 

2950  DISP  'SWEEPING  COMPLETED  TAKEN* ; N; 'READIIGS' 

2960  RETURN 

2970  PROCESS:  !  ****************PBOCESS  SUBROUTINE**************************** 

2980  REM  ******  PROCESS  converts  raw  analyser  data  to  nuabers  ****** 

2990  PRINTER  IS  300 
3000  FOR  M=0  TO  ARM 

3010  REM  DISP  A|(M)  !  REMOVE  REM  TO  DISPLAY  OUTPUT  OF  AIALYZER 
3020  REM  PRINT  A|(M)  !  REMOVE  REM  TO  PRINT  OUTPUT  OF  ANALYZER 
3030  NEXT  M 

3040  DISP  'CONVERTING  DATA  TO  NUMBERS  . ' 

3050  REM  ******  Extract  data  froa  analyser  output  ****** 

3060  FOR  M=0  TO  ARM 

3070  AA(M)=VAL  (A| (M)  [5 , 15] )  0  BB(M)=VAL  (A$ (M) [21 , 31] )  0  FR(M)=VAL  (A|(M)  [34,43 

]) 

3080  REM  DISP  AA(M) ,BB(M) .FR(M)  !  REMOVE  REM  TO  DISPLAY  VALUES 
3090  NEXT  M 

3100  DISP  'FINDING  MAX/MINS  . ' 

3110  MAXAA=AA(0)  0  MAXBB=BB(0)  0  MAXFR=PF  0  MINAA=Aa(0)  0  MINBB=BB(0)  0  MINFR=TF 
3120  FOR  M=0  TO  ARM 

3130  MAXAA=MAX  (MAXAA,AA(M))  0  MINAA=MIN  (MINAA, AA(H) ) 

3140  VAXBB=MAX  (MAXBB,BB(M))  0  MINBB=MIN  (MINBB.BB(M)) 

3150  NEXT  M 

3160  MINBBB=MINBB  0  MAXBBB=MAXBB 
3170  DISP 

3180  REM  **  Display  max/min  measured  values  which  becoae  plot  default  values  ** 
3190  DISP  'MAX  ';LAB1|;'=';MAXAA;'  ' ; LAB2$ ; ; MAXBB , '  ' , 'FREQ=' ; MAXFR 

3200  DISP  'MIN  ';LAB1$,'=';MINAA;'  ' ; LAB2$ ; '=' ; MINBB , '  ' ; 'FREQ=' ;MINFR 

3210  RETURN 

3220  LINPLOT:  !  «****************LINPLOT  SUBROUTINE*************************** 

3230  REM  **********  LINPLOT  plots  data  when  frequency  scale  is  linear  ********* 
3240  LOCATE  PXMI N . PXVAX , P YMI N , PYMAX 

3250  REM  *♦*♦♦♦  Sets  up  plot  limits  ****** 

3260  SCALE  M INFR , MAXFR , M I NAA , MAXAA 

3270  RF.M  **«*«♦  Sets  up  plot  axes  ****** 

3280  FXD  1  ,  1 

3290  LAXES  - ( (MAXFR-M I NFR) / 1 0) , (MAXAA-H 1 N AA) / 10 . MINFR . M INAA 

3300  REM  ******  Label  plot  axes  ****** 

3310  MOVE  MINFR, MAXAA*(MAXAA-MIMAA)/20 
3320  LORG  5 
3330  LABEL  LABlI 

3340  MOVE  (MAXFR*MTNFR)/2,MINAA-(MAXAA-MINAA)/10 
3350  LORG  5 


«*«««•  Plot  data  *««•*« 


3360  LABEL  'FHEaUEICY  KHz* 

3370  REM 

3380  FOR  M=0  TO  ARM 
3390  PLOT  FR(M),AA(M) 

3400  lEXT  M 

3410  IF  AIS1$=*A*  THEM  GOTO  FIIISH 
3420  IF  ARSlt=*B*  THEM  GOTO  FIRISH 
3430  SCALE  MIRFR.MAXFR.MIIBB.MAXBB 
3440  REM  Sets  up  plot  axes  ♦••••• 

3450  PEI  2 

3460  TAXIS  MAXFR, (MAXBB-MIRBB)/DG,MIIBB,MAXBB 
3470  LORG  2 

3480  FOR  Y=MINBB  TO  MAXBB  STEP  (MAXBB-MIXBB) /DG 
3490  MOVE  MAXFR* (MAXFR-MIIFR)/100,Y 

3500  REM  ♦*♦♦♦♦  Label  plot  axes  •••**♦ 

3510  LABEL  Y 
3520  lEXT  Y 

3530  MOVE  MAXFR, MAXBB* (MAXBB-MIRBB)/20 

3540  LORG  5 

3550  PEI  2 

3560  LABEL  LAB2I 

3570  SETUU 

3580  REM  Plot  data 

3590  FOR  M=0  TO  ARM 
3600  PLOT  FR(M),BB(M) 

3610  lEXT  M 

3620  IF  DG=6  THEI  3650 
3630  GOTO  3680 

3640  REM  ♦♦♦♦*♦  Draw  zero  phase  line  ♦**♦♦♦ 

3650  MOVE  MIIFR, (MAXBB*MIRBB)/2 

3660  LI IE  TYPE  4 

3670  DRAW  MAXFR, (MAXBB*MI IBB) /2 

3680  GOTO  FIIISH 

3690  FIIISH: 

3700  RETURI 

3710  LOGPLOT:  !  ♦♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦LOGPLOT  SUBROUTHE*************************** 

3720  REM  «*««**  LOGPLOT  plots  data  when  frequency  scale  is  logaritbaic  *«*«** 
3730  LOCATE  PXMII, PXMAX, PYMIl, PYMAX 

3740  REM  Sets  up  plot  liaits 

3750  SCALE  LGT  (MIIFR), LGT  (MAXFR) .MIMAA,MAXAA 

3760  REM  ♦♦♦♦♦♦  Sets  up  plot  axes  ♦♦♦♦♦♦ 

3770  FXD  1.1 

3780  XAXIS  MINAA,(LGT  (MAXFR)-LGT  (MIIFR))/DECS,LGT  (MIIFR). LOT  (MAXFR) 

3790  L=MIIFR 

3800  FOR  X=LGT  (MIIFR)  TO  LGT  (MAXFR)  STEP  (LGT  (MAXFR)-LGT  (MIIFR))/DECS 

3810  MOVE  X,HIMAA-(MAXAA-MIIAA)/35 

3820  LORG  6 

3830  LABEL  L 

3840  FOR  1=2  TO  9 

3850  IF  X>=  LGT  (MAXFR)  THEI  3920 

3860  MOVE  X*(i,GT  (MAXFR)-LGT  (MIIFR))/DECS*LCT  (D.MIIAA 

3870  SETGU 

3880  IPLOT  0,1,-1 

3890  IMOVE  0,-1 

3900  SETUU 

3910  lEXT  I 

3920  L=L*10 

3930  lEXT  X 

3940  MOVE  (LGT  (MAXFR)*LGT  (MINFR))/2,MIMAA- (MAXAA-MIIAA)/10 
3950  LORG  6 

3960  REM  Label  plot  axes  ***♦♦♦ 

3970  LABEL  ‘FREqUEICY  KHz* 

3980  TAXIS  LGT  (MIIFR) . (MAXAA-MIMAA)/10,HIIAA.MAXAA 
3990  LORG  8 

4000  FOR  Y=MIMAA  TO  MAXAA  STEP  (MAXAA-MIIAA) /lO 
4010  MOVE  LGT  (MIIFR), Y 
4020  LABEL  Y 
4030  lEXT  Y 

4040  MOVE  LGT  (MIIFR) , MAXAA* (MAXAA-MIIAA) /20 


Plot  data  •««*•« 


4050  LORG  4 
4060  UBEL  LABlI 
4070  PEI  1 
4080  REM 

4000  FOR  M=0  TO  ARM 
4100  PLOT  LGT  (FR(M}) ,AA(M) 

4110  lEXT  M 

4120  IF  AIS1$='A*  THE!  GOTO  FIIISH 
4130  IF  AHS1|='B«  THEM  GOTO  FIIISH 
4140  PEI  2 

4150  SCALE  LGT  (MIIFR},LGT  (MAXFR) .MIIBB.MAXBB 
4160  REM  ♦***♦♦  Seta  up  plot  acale  *•*••• 

4170  TAXIS  LGT  (MAXFR) . (MAXBB-MIIBB)/DG.MIIBB,MAXBB 

4180  REM  *«*«**  Seta  up  plot  axea  ««««** 

4100  LORG  2 

4200  FOR  Y=MIIBB  TO  MAXBB  STEP  (MAXBB-MIIBB)/DG 
4210  MOVE  LGT  (MAXFR)*(LGT  (MAXFR)-LGT  (MIIFR))/100. Y 

4220  REM  «««***  Label  plot  axea  ««**«« 

4230  LABEL  Y 
4240  lEXT  Y 

4250  MOVE  LGT  (MAXFR) ,MAXBB« (MAXBB-MIIBB)/20 
4260  LORG  4 
4270  LABEL  LAB2$ 

4280  REM  ****««  Plot  data  «*«•*« 

4200  FOR  M=0  TO  ARM 

4300  PLOT  LGT  (FR(M)) ,BB(M) 

4310  lEXT  M 

4320  IF  DG=6  THEM  4350 
4330  GOTO  4380 

4340  REM  «*•**«  Draw  zero  phaae  line  ****** 

4350  MOVE  LGT  (MIIFR) , (MAXBB«MIIBB)/2 
4360  LIIE  TYPE  4 

4370  DRAW  LGT  (MAXFR) , (MAXBB*MIRBB)/2 
4380  RETURI 

4300  YLSCALEMOD:  !  **********  YL  AXIS  SCALE  MODIFICATIOI  SUBROUTIIE  ********** 

4400  REM  ******  YLSCALEMOD  enablea  the  left  band  Y  axla  acale  to  be 
Bodified  from  the  default  values  (  seasured  aln  and  aax  )  ****** 

4410  DISP  0  DISP  'Do  you  wish  to  aodlfy  the  Y  axla  (* ;LAB1$; *)acale  ?  (Y/l)* 

4420  IIPUT  ALTlI 

4430  IF  ALT1|='Y'  THEM  4470 

4440  IF  ALT1$='»'  THEM  RETURN 

4450  GOTO  4410 

4460  REM  **«*  Display  the  default  aln/aax  values  of  Y  (aeasured  aax/ain)  ***** 
4470  DISP  'THE  CURREHT  Y  SCALE  VALUES  OF  •;LAB1$;'  ARE  'iMIlAA;'  ■:MAXAA 
4480  REM  «*•«**  Modification  of  Mil  value  of  Y  scale  ****** 

4400  DISP  'What  ainiaua  Y  scale  value  do  you  want  ?' 

4500  INPUT  YMIN 

4510  IF  YMIN<=  MINAA  THEN  4560 

4520  DISP  'THIS  IS  GREATER  THAN  THE  MEASURED  MIN  VALUE  ARE  YOU  SURE  ?  (Y/l)' 

4530  INPUT  ALT2I 

4540  IF  ALT2|='Y'  THEN  4560 

4550  GOTO  4470 

1560  UINAA=YHIN 

4570  DISP  'THE  CURRENT  Y  SCALE  VALUES  OF  '.LABlI;'  ARE  ';MIWAA;'  ';MAXAA 
4580  REM  Modification  of  MAX  value  of  Y  scale  ♦♦•••* 

4590  DISP  'What  aaxiaua  Y  scale  value  do  you  want  ?' 

4600  INPUT  YMAX 

4610  IF  YMAX>=  MAXAA  THEN  4660 

4620  DISP  'THIS  IS  LESS  THAN  THE  MEASURED  MAX  VALUE  ARE  YOU  SURE?  (Y/l)' 

4630  INPUT  ALT3$ 

4640  IF  ALT3$='Y'  THEN  4660 
4650  GOTO  4570 
4660  MAXAA=YMAX 
4670  RETURN 

4680  YRSCALEMOD:  !  •***♦*•*•*  YR  AXIS  SCALE  MODIFICATION  SUBROUTIIE  ********** 

4690  REM  ««*«**  YRSCALEMOD  enables  the  right  hand  Y  axis  scale  to  be 
Bodified  froa  the  default  values  (  aeasured  ain  and  aax  )  ****** 

4700  DISP 
4710  DISP 


(T/I) 


4720  DISP  *Do  yon  with  to  aodlfy  the  T  axil  (*;LAB2$; *)8cale  f 
4730  IIPUT  ALT4I 
4740  IF  ALT4$=*T'  THEI  4780 
4750  IF  ALT4M'I*  THEI  RETURI 
4760  GOTO  4720 

4770  REM  ****  Display  the  default  ain/Bax  valuea  of  T  (aeaeured  aax/aln)  ***** 
4780  DISP  ‘THE  CURREIT  T  SCALE  VALUES  OF  'aABRl;*  ARE  MIIBB;*  MAXBB 
4700  REM  ******  ModificatioD  of  Mil  value  of  T  acale 

4800  DISP  *What  ainlaua  T  acale  value  do  you  want  ?■ 

4810  IIPUT  TRMII 

4820  IF  TRMIK-  MIIBBB  THEI  4870 

4830  DISP  ■THIS  IS  GREATER  THAI  THE  MEASURED  Mil  VALUE  ARE  TOU  SURE?  (T/D* 
4840  IIPUT  ALTS! 

4850  IF  ALT5|=*T»  THEI  4870 
4860  GOTO  4780 
4870  MIIBB=YRMII 

4880  DISP  'THE  CURREIT  T  SCALE  VALUES  OF  •;LAB2|;'  ARE  •;MIIBB;*  •;MAXBB 
4800  REM  Modiflcatlou  of  MAX  value  of  T  scale  «•«*«* 

4000  DISP  *Wbat  aaxiaua  T  scale  value  do  you  aaot  ?* 

4010  IIPUT  YRMAX 

4020  IF  YRMAX>=  MAXBBB  THEI  4070 

4030  DISP  'THIS  IS  LESS  THAI  THE  MEASURED  MAX  VALUE  ARE  TOU  SURE?  (T/I)* 

4040  IIPUT  ALT68 

4050  IF  ALT6l=*T*  THEI  4070 

4060  GOTO  4880 

4070  MAXBB=:TRHAX 

4980  RETURH 

4000  DEGMOD:  !  v**************  TR  AXIS  MOD  FROM  10  TO  6  DIVISIOIS 

5000  REM  *«*««*  DEGMOD  enables  the  right  band  axis  to  be  aodified  froa 
10  to  6  divisions  when  the  axis  is  phase  angle  in  degrees  •••*•* 

5010  DISP 
5020  DISP 

5030  DISP  'Do  you  wish  to  aodify  the  T  axis  (* ;LAB2|; ') scale  to  six  divisions* 
5040  DISP  'This  enables  phase  to  be  displayed  froa  -00  to  *00  Degrees' 

5050  DISP  'in  30  Degree  steps  (T/I)* 

5060  IIPUT  ALTDI 

5070  IF  ALTD$=*T*  THEI  5100 

5080  IF  ALTD|='I*  THEI  DG^IO  0  RETURI 

5000  GOTO  5030 

5100  DG=6 

5110  REM  «*««««  DG=6  sets  the  right  band  axis  to  six  divisions  «***•• 

5120  REM  ******  Set  default  values  of  right  band  axis  to  =/-00  degrees  •••••• 

5130  MIMBBB=MIRBB  0  MIIBB=-00 
5140  MAXBBB=MAXBB  0  HAXBB=00 

5150  REM  «*««««  Display  the  aeasured  ain/aax  values  (MIIBBB/MAXBBB) 

5160  DISP  'THE  MIR  VALUE  OF  •;LAB2|;'  IS  'iMIlBBB;'  THE  MAX  VALUE  OF  ';LAB2$;' 
IS  •; MAXBBB 

5170  REM  «**«*  Display  the  plot  default  Bln/nax  values  (-90/*00  degrees) 

5180  DISP  'THE  •:LAB2|;'  SCALE  RARGE  IS  * ;UIRBB; 'TO* ;MAXBB; ' IR  30  DEGREE  STEPS' 
5100  RETURR 

5200  HARDCOPT:  PLOTTER  IS  305  !  ♦**♦•*♦♦*♦•  HARDCOPT 


5210  REM  *«««««  HARDCOPY  sets  plotter  paraaeters  to  plot  data  *«•*** 

5220  LIMIT  0,270,5,185 

5230  REM  Set  plot  Halts  ,  change  for  different  sized  plot  •**••• 

5240  PER  1 
5250  REM  FRAME 

5260  REM  *•***«  Set  location  of  axes  ,  change  for  different  sized  plot  •••••* 


5270  PXMIR=15 
5280  PXMAX=135 
5290  PYMIR=10 
5300  PTMAX=00 
5310  CSIZE  3 
5320  RETURR 

5330  VDU:  PLOTTER  IS  1  !  *•♦♦**♦•••♦*•*•*••♦  VDU 

5340  REM  ««««««  VDU  sets  graphics  paraaeters  to  display  data  •*•••* 

5350  CLEAR 

5360  DISP  0  DISP  0  DISP  0  DISP  6  DISP  0  DISP  0  DISP 

5370  DISP  *  After  viewing  plot  press  CORT  to  continue* 

5380  REM  «**  3.5  Sec  pause  to  enable  operator  to  read  aessage  on  screen  •••••*« 


ssgo  WAIT  3500 
5400  GCLEAR 
5410  GRAPHALL 
5420  LIMIT  0,171,0.75 


5430  REM  «««*««  Set  plot  Halts  ,  change  for  different  sized  plot 

5440  PEI  1 
5450  REM  FRAME 

5460  REM  *«*«««  Set  location  of  axes  ,  change  for  different  sized  plot 


5470  PXMII=22 
5480  PXMAX=205 
5490  PYMIR=12 
5500  PYMAX=92 
5510  CSIZE  5 
5520  RETURI 


5530  lEWFILE:  !  «•*«•*«*««*««««*  lEWFILE  SUBROUTIIE  «***••«««•***«****« 

5540  REM  «*««««*««««««*««««  lEWFILE  creates  datafile  on  disc  **««**«•*** 

5550  DISP  ■  Enter  datafile  title* 

5560  IIPUT  lAMEl 

5570  REM  «««««««  Trap  errors  so  program  does  not  abort 


5580  01  ERROR  GOTO  5650 
5590  CREATE  IAME$,20.256 
5610  DISP  ‘CREATIIG  *:IAME| 

5620  ASSIGIt  1  TO  lAMEt 
5630  OFF  ERROR 
5640  RETURI 
5650  OFF  ERROR 

5660  REM  Display  details  of  any  errors  ««*««* 

5670  IF  ERRI  =63  THEM  DISP  lAMEl;*  exists  use  a  different  naae*  ELSE  DISP  'ERROR 
•;ERRM  ;*HAS  OCCURED  01  CREATIIG  FILE  at  line*;ERRL  ;•  in  program* 

5680  GOTO  5550 

5690  WRITEG:  !  *♦**♦«•*«**♦♦♦♦♦♦*•  WRITEG  SUBROUTIIE  •**•****♦••*♦♦♦••*♦*•••** 

5700  REM  WRITEG  writes  data  to  file  created  by  lEWFILE  *•••****♦*** 

5710  DISP  •  Enter  datafile  identification* 

5720  IIPUT  IDEITI 
5730  OFF  ERROR 

5740  REM  ♦♦♦♦♦•♦  Trap  errors  so  program  does  not  abort  ♦***♦♦ 

5750  ON  ERROR  GOTO  5870 
5760  PRIMTi  1  ;  IDEITl 

5770  PRIMT#  1  ;  LAB1$.LAB2$,MIHFR,MAXFR,ARM.AIS1$,FL|,PF,TF 

5780  IF  FL$=*LII*  THEM  5800 

5790  PRIMT#  1  ;  DECS 

5800  FOR  1=0  TO  ARM 

5810  PRIMT#  1  ;  A$(M) 

5820  NEXT  N 

5830  DISP  ’DATA  STORED* 

5840  OFF  ERROR 
5850  RETURN 

5860  REM  ♦♦♦*♦♦  Display  details  of  any  errors  ♦♦*♦♦♦ 

5870  OFF  ERROR  0  PRIMTER  IS  1  0  PRIMT  'ERROR* ;EBRM  ;*HAS  OCCURED* 

5880  IF  ERRM  =66  THEM  DISP  'FILE  CLOSED, OPENING  MEWFILE*  0  GOSUB  MEWFILE 
5890  IF  ERRM  =71  THEM  DISP  *DATAFILE  FULL,  OPEMIMG  MEWFILE*  0  GOSUB  MEWFILE 
5900  DISP  *FILE  HAS  MOT  BEEM  WRITTEN* 

5910  RETURN 

5920  DISP  'ERROR  NUMBER  *;ERRM  ;*  HAS  OCCURED  WHEN  ENTERING  IDEMT  TRY  AGAIN* 

5930  GOTO  5710 

5940  CLOSE:  !  «««**«*««*««««t****«  CLOSE  ROUTINE  ****«•«**•*****«*****«***•««« 

5950  REM  *♦♦«♦**  Trap  errors  so  program  does  not  abort  *♦•*** 

5960  ON  ERROR  GOTO  6000 
5970  ASSIGN#  1  TO  « 

5980  DISP  NAMEl;*  CLOSED* 

5990  RETURN 
6000  OFF  ERROR 

6010  REM  Display  details  of  any  errors 

6020  IF  ERRM  =66  THEN  DISP  'FILE  IS  ALREADY  CLOSED*  0  RETURI 
6030  DISP  *  *;ERRI  ;*  Has  occured  at  line*;ERRL  ;*file  has  lOT  been  closed* 
6040  RETURI 

6050  READDATA:  !  READDATA  SUBROUTIIE  **•**•*****•**•*♦*•••♦♦ 

6060  REM  ••«•**•**♦•**•  READDATA  reads  data  previously  stored  •••*•••♦**••♦•••* 

6070  DISP  *  Which  data  file  do  you  wish  to  access?* 


*«*««««  Trap  errors  so  prograa  does  not  abort  **«««« 


6080  IIPUT  lAMEl 
6000  REM 

6100  OH  ERROR  GOTO  6270 
6110  ASSIGli  1  TO  lAMEl 
6120  READ#  1  ;  IDEITl 
6130  READ*  1  :  LAB1$,LAB2|.HIIFR.HAXFR,ARH,AIS1|,FL$,PF,TF 
6140  IF  FL$=*LII*  THEI  GOTO  6170 
6150  READ*  1  :  DECS 

6160  REM  *««««*  decs  is  the  nuaber  of  decades  for  a  log  sweep  **«**« 

6170  FOR  1=0  TO  ARM 
6180  READ*  1  :  Aid) 

6190  HEXT  I 

6200  PBIMTER  IS  1 

6210  REM  PRIXT  IDEHTi 

6220  REM  PRIHT  LAB1|,LAB2|,MIHFR.MAXFR. ARM. AHS1|,FL|,PF,TF, DECS 

6230  REM  FOR  H=0  TO  ARM  0  PRIHT  A|(H)  0  HEXT  H 

6240  PRIHTER  IS  301 

6250  OFF  ERROR 

6260  RETURH 

6270  OFF  ERROR 

6280  REM  *•♦♦♦♦  Display  details  of  any  errors 

6290  IF  ERRH  =71  THEM  ARM=H-1  0  GOTO  6260 

6300  IF  ERRH  =67  THEH  DISP  '  ‘dAMEI:*  does  not  exist, try  again*  0  GOTO  6070 
6310  DISP  •  Error  'iERRH  ;*  Occured  at  line  ':£RRL  ;•  Of  prograa*  0  GOTO  6070 
6320  AGAIH:  !  *«*•♦♦♦«*♦*♦**♦*♦♦♦*♦  AGAIH  SUBROUTIHE 

6330  REM  ««««*«««*«««*«««*«««««  AGAIH  is  a  duaay  routine  «*•******«***•**««*««« 

6340  RETURH 


-APPENDIX  II  -  Listing  of  program  prompts  and  operator  responses  for 
typical  application 

«**  lUPEDAHCE  VEASURE  STORE  AID  PLOT  PROGRAM  *«« 

Do  you  wish  to  aeasure  (M)  or  display  stored  data?  (D) 

7 

M 

To  Beasure 
IMPEDAMCE 
ADMITTAHCE 
RESISTAMCE 
COMDUCTAMCE 
IMDUCTAHCE 
CAPACITAMCE 
GAIR 

REF  AMP 
INPUT  AMP 

7 

z 

For  angles  in  Type 
DEGREES  D 

RADIANS  R 

7 

D 

For  resolution 
HIGH  SPEED 
ACCURACY 
NORMAL 

7 

N 

For  freq  scale  type 

LINEAR  LIN 

LOG  LOG 

7 

LOG 

What  is  the  lower  frequency  in  KHz 

7 

1000 

What  is  the  higher  frequency  in  KHz 

7 

13000 

SWEEPING  . 

SWEEPING  COMPLETED  TAKEN  24  READINGS 
Do  you  wish  to  display  plct?  (Y/N) 

7 

T 

CONVERTING  DATA  TO  NUMBERS  . 

FINDING  MAX/MIIS  . 

MAX  IMPEDANCE  Z=  1211.2  PHASE  DEG=85.78 
MIN  IMPEDANCE  Z=  20.87  PHASE  DEG=-86.93 
Do  you  wish  to  aodlfy  the  Y  axis  (IMPEDANCE  Z) scale  ? 

7 

Y 

THE  CURRENT  Y  SCALE  VALUES  OF  IMPEDANCE  Z  ARE  20.87  1211.2 

What  alniBua  Y  scale  value  do  you  want  ? 

7 
0 

THE  CURRENT  Y  SCALE  VALUES  OF  IMPEDANCE  Z  ARE  0  1211.2 

What  aaxiaua  Y  scale  value  do  you  want  ? 

7 

1500 

Do  you  wish  to  aodlfy  the  Y  axis  (PHASE  DEG) scale  to  six  divisions 
This  enables  phase  to  be  displayed  froa  -90  to  '^90  Degrees 
in  30  Degree  steps  (Y/l) 

7 

T 

THE  MIN  VALUE  OF  PHASE  DEG  IS  -86.93  THE  MAX  VALUE  OF  PHASE  DEG  IS  85.78 
THE  PHASE  DEG  SCALE  RANGE  IS  -90  TO  90  IN  30  DEGREE  STEPS 


FREQ=100000 
FREQ-  1000 

(Y/l) 


Type 

Z 

Y 

R 

G 

L 

C 

B-A 

A 

B 


(Y/I) 


Do  jou  wish  to  aodify  the  Y  axis  (PHASE  DEC) scale  ? 

7 

N 

Do  you  wish  to  display  on  VDU  (V)  or  get  a  hard  copy  (H)?  (V/H) 

? 

Y 

After  viewing  plot  press  COMT  to  continue 
Do  you  want  a  hardcopy  ?  (Y/H) 

7 

Y 

Do  you  wish  to  store  data?  (Y/N) 

7 

Y 

Enter  datafile  title 

7 

EXAMPLEl 

CREATIMG  EXAMPLEl 
Enter  datafile  identification 

7 

KRAUT  K5K  S/N  52831 
DATA  STORED 
EXAMPLEl  ''LOSED 

Do  you  wish  to  test  another  device?  (Y/M) 

7 

N 

Do  you  wish  to  plot  any  of  the  stored  data?  (Y/N; 

7 

N 

END  OF  PROGRAM  to  aeasure  or  plot  press  RUN  key 
NEXT  EXAMPLE 
RETRIEVING  DATA 

•«*  IMPEDANCE  MEASURE  STORE  AND  PLOT  PROGRAM 
Do  you  wish  to  Measure  (M)  or  display  stored  data?  (D) 

7 

D 

Which  data  file  do  you  wish  to  access? 

7 

EXAMPLEl 

CONVERTING  DATA  TO  NUMBERS  . 

FINDING  MAX/MINS  . 

MAX  IMPEDANCE  Z=  1211.2  PHASE  DEG=  85.78 
MIN  IMPEDANCE  Z=  20.87  PHASE  DEG=-86.93 
Do  you  wish  to  Modify  the  Y  axis  (IMPEDANCE  Z) scale  ? 

7 

Y 

THE  CURRENT  Y  SCALE  VALUES  OF  IMPEDANCE  Z  ARE  20.87 
What  MlnlMUM  Y  scale  value  do  you  want  ? 

7 
0 

THE  CURRENT  Y  SCALE  VALUES  OF  IMPEDANCE  Z  ARE  0 
What  MaxlMUM  Y  scale  value  do  you  want  ? 

7 

1500 

Do  you  wish  to  Modify  the  Y  axis  (PHASE  DEC) scale  to  six  divisions 
This  enables  phase  to  be  displayed  froM  -90  to  *90  Degrees 
in  30  Degree  steps  (Y/N) 

7 

Y 

THE  MIN  VALUE  OF  PHASE  DEG  IS  -68.93  THE  MAX  VALUE  OF  PHASE  DEG  IS  85.78 
THE  PHASE  DEG  SCALE  RANGE  IS  -90  TO  90  IN  30  DEGREE  STEPS 
Do  you  wish  to  Modify  the  Y  axis  (PHASE  DEG) scale  ?  (Y/N) 

7 

N 

Do  you  wish  to  display  on  VDU  (V)  or  get  a  bard  copy  (H)?  (V/H) 

7 

Y 

After  viewing  plot  press  CONT  to  continue 
Do  you  want  a  hardcopy  ?  (Y/N) 


FRE11=100000 
FREQ=  1000 

(Y/N) 


1211.2 


1211.2 


(Y/H) 


■ 

Do  you  wish  to  plot  any  of  the  stored  data? 

f 

I 

EID  OF  PROGRAM  to  seasure  or  plot  press  RUM  key 


Function 

Parameter 

Range 

Test  signal 

Level 

5mV  to  l.lV  rms 

Frequency 

5Hz  to  13.0MHz 

Amplitude  and 

b  —  A 

0  to  ilOOdB 

phase 

6 

—  180  to  +180  Degrees 

measurement 

A,B 

+0.8  to  -lOOdBV 

+  13.8dBm  to  — 87dBm 

Group  Delay 

O.lnS  to  lOS 

Impedance 

Z,R,X 

O.lmfl  to  iMfl 

measurement 

y,g,b 

l.OnS  to  lOS 

L 

O.OlnH  to  l.OKH 

C 

O.lfF  to  lOOmF 

D 

0.0001  to  10 

Q 

0.1  to  1000 

e 

—  180  to  +180  Degrees 

Accuracy 

Amplitude 

0.02  to  O.OOdB 

Phase 

0.1  to  0.2  Degrees 

Impedance 

0.1%  of  reading 

Table  I.  Brief  specifications  of  analyser. 


Table  2.  Constants  for  modifying  the  plot  size 


HPB2913A 


FIG.  1  SYSTEM  BLOCK  DIAGRAM 


FIG.  2  SOFTWARE  BLOCK  FLOWCHART 


EXAMPLE  OF  GRAPHICAL  OUTPUT 
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